Hệ thống quản lý nguồn nhân lực Dự án năm cuối trong c#
1 Public Class Frm_Main
2
3 Public Shared flag = 0
4 Public Shared flag2 = 0
5 Public Shared flag3 = 0
6
7 Private Sub Frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
8 btnLogout.Visible = False
9 Panel4.Visible = False
10 Timer1.Start()
11 End Sub
12
13 Private Sub btnEmployee_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmployee.Click
14 Frm_Employee.Show()
15 End Sub
16
17 Private Sub btnDeptt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeptt.Click
18 Frm_Department.Show()
19 End Sub
20
21 Private Sub btnPerformance_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPerformance.Click
22
23 If (flag = 0) Then
24
25 Frm_Employee_Performance.Show()
26
27 ElseIf (flag = 1) Then
28
29 Frm_PerformanceAll.Show()
30
31 End If
32
33 End Sub
34
35 Private Sub btnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogout.Click
36
37 If (flag2 = 0) Then
38
39 Me.Close()
40
41 ElseIf (flag2 = 1) Then
42
43 Me.Close()
44 Frm_Login.Show()
45
46 End If
47
48 End Sub
49
50 Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
51 Me.Close()
52 End Sub
53
54 Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
55 Frm_Department.Show()
56 End Sub
57
58 Private Sub AddNewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewToolStripMenuItem.Click
59 Frm_Employee.Show()
60 End Sub
61
62 Private Sub btnCalculator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculator.Click
63 Frm_Calculator.Show()
64 End Sub
65
66 Private Sub btnAdmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdmin.Click
67 Frm_Admin_Login.Show()
68 End Sub
69
70 Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
71 Frm_Search.Show()
72 End Sub
73
74 Private Sub btnNews_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNews.Click
75
76 If (flag3 = 0) Then
77
78 loadNews()
79
80 Panel4.Visible = True
81
82 ElseIf (flag3 = 1) Then
83
84 Frm_News.Show()
85
86 End If
87
88 End Sub
89
90 Private Sub AllEmployeePerformanceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllEmployeePerformanceToolStripMenuItem.Click
91 Frm_PerformanceAll.Show()
92 End Sub
93
94 Private Sub AddNewsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewsToolStripMenuItem.Click
95 Frm_News.Show()
96 End Sub
97
98 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
99 Me.Close()
100 End Sub
101
102 Private Sub AboutToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem1.Click
103 Frm_About.Show()
104 End Sub
105
106 Private Sub loadNews()
107
108 Dim news As String = String.Empty
109
110 Dim query = "Select news_title, news_description From News"
111
112 Dim dr As SqlClient.SqlDataReader = getDataReader(query)
113
114 While dr.Read AndAlso dr.HasRows
115 news &= "-> " & dr("news_description").ToString()
116 End While
117
118 Label1.Text = news
119 Label1.BackColor = Color.SkyBlue
120 Label1.AutoSize = True
121 Label1.Left = Panel1.Width
122 Timer1.Interval = 25
123
124 End Sub
125
126 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
127 Label1.Left -= 1
128 If Label1.Left + Label1.Width < 0 Then
129 Label1.Left = Panel1.Width
130 End If
131 End Sub
132
133 Private Sub CloudHeader1_Load(sender As Object, e As EventArgs) Handles CloudHeader1.Load
134
135 End Sub
136 End Class